home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 153 / 153.d81 / screensaver 13 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  520b  |  15 lines
  1. 10 poke56,157:clr:print"[147][155]":poke53280,0:poke53281,0
  2. 20 print"'[195]ircle of 13'":print"[195]hromo[212]echnic [211]creen [211]aver"
  3. 30 print"[197]nter # of seconds to wait before":input"saving";s
  4. 40 print"loading ml..."
  5. 50 sys57812"cx13ml",peek(186),1:poke780,0:sys65493
  6. 60 print"[147]"
  7. 70 print"[149][201]nstalled!":print"[211]aving will begin after"s"seconds."
  8. 80 print"[129][212]o activate immediately, press"
  9. 90 print"[158][195][207][206][212][210][207][204]+[153][195][207][205][205][207][196][207][210][197]+[211][200][201][198][212]"
  10. 100 print"[159][210][197][211][212][207][210][197] will disable":print"[154]enter [211][217][211][160]40400 to reinstall"
  11. 110 print"[193]ny key to continue..."
  12. 120 poke40459,int(s/3):sys40400:poke198,0
  13. 130 ifpeek(198)=0thensys40784:goto130
  14. 140 print"[147][155]":new
  15.